Top 10k strings from AprSkw (1984)(Polbrit International)(pl).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   1 y do aproksymac-ji  
   1 x(k))^i-(x(k)<0
   1 x(k))^(i+j)-(x(k)<0
   1 x(k))^(i+j)
   1 wny sumie kwadrat
   1 tku  programu  mo
   1 s=s-c(h,pj)*z(pj)
   1 s=c(h,n1):
   1 rego wyznacza-ne  s
   1 redniokwadratowejstaje si
   1 redniokwadratowej   funkcji"''"            y=f(x)"''"na  podstawie  ci
   1 redniokwadratowa).";
   1 redni  aproksymacji  bsa,r
   1 r=r*x(i)+z(j)
   1 r=c(h,pj)/s
   1 p (przy  n=p  metodaaproksymacji  
   1 od-szego  (tzn.  wyst
   1 nic r(x)=f(x)-w(x)"'"dla zadanych warto
   1 nic  podzielonej przezp= ";p;" wynosi:"''"bsa=";bsa:
   1 lp        H
   1 lne  warto
   1 ksza od zera          ":
   1 ksza niz p":
   1 kowita, "'"nieujemna i nie wi
   1 kowita"'"i wi
   1 gu  p warto
   1 ej po-danych r
   1 dze zmiennej x)i warto
   1 czynniki wielomianuw(x)."
   1 czynniki  w(x)  od najm
   1 ci"''"  x(k) i y(k)=f(x(k)), (k=1(1)p)"''"wielomianem  algebraicznym  w(x)stopnia  n
   1 ci x=x(k):"''
   1 ci x(k),y(k):"''
   1 ci  x(k),y(k),  gdzie  po-szczeg
   1 ci  x(k) musz
   1 cego przynajmniejszej pot
   1 c(k,pj)=c(k,pj)-c(k,ph)*r:
   1 c(i1,n2)=r
   1 c(i1,j1)=r
   1 c  klawisze";
   1 bsa=bsa/p:
   1 bsa=bsa+r*r
   1 aproksymacji)."
   1 Zatrzymaj magnetofon
   1 Macierz C jest osobliwa
   1 Koniec oblicze
   1 AprSkw    %
   1 ;"RUN i ENTER)"
   1 ;"Program ~AprSkw~";
   1 ;"Opracowa
   1 ;"Olgierd Przesmycki";
   1 ;"Liczba p musi by
   1 ;"Liczba n musi by
   1 ;"Czy chcesz zmieni
   1 ;"Czekaj....":
   1 ;"(Aproksymacja";
   1 (c(h,p(i)))
   1 "|det C|=";w
   1 "y(";i;")=";:
   1 "x(";i;")=";:
   1 "r(";x(i);")=";r
   1 "a(";i1;")=";z(i)
   1 "Program ten s
   1 ";p;" wielomianu w(x):"''"n=";
   1 "'''" (Do  pocz
   1 " Przez C oznacza si
   1  |det C|:"''
   1  wymieniane dane:"''"Liczb
   1  p par warto
   1  n (t/n)?":
   1  macierz uk-
   1  klawisz *":
   1  interpolacyjn
   1  Polbrit International";
   1  O.Przesmycki, 26.9.1984
   1  Czekaj na wyniki